home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / E / ExerciseAwayYourCalories.cpt / EAYC! / background_6834.txt < prev    next >
Encoding:
Text File  |  1989-03-03  |  2.6 KB  |  122 lines
  1. -- background: 6834 from stack: in
  2. -- bmap block id: 6929
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 01
  10. -- high flags: 0002
  11. -- rect: left=87 top=81 right=337 bottom=99
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 3
  16. -- text size: 12
  17. -- style flags: 256
  18. -- line height: 12
  19. -- part name: select
  20. ----- HyperTalk script -----
  21. on mouseup
  22.   global calories
  23.   set lockscreen to true
  24.   put empty into field "select"
  25.   set locktext of field "select" to false
  26.   click at the clickloc
  27.   type "‚Ä¢"
  28.   set locktext of field "select" to true
  29.   set lockscreen to false
  30.   repeat with x=1 to number of lines in field select
  31.     if line x of field select="‚Ä¢" then
  32.       put line x of field "calories" into calories
  33.     end if
  34.   end repeat
  35.   repeat with x=4 to 26
  36.     put round((calories/(the short name of field x))*600)*0.1 into field x
  37.   end repeat
  38. end mouseup
  39.  
  40.  
  41. -- part 2 (field)
  42. -- low flags: 01
  43. -- high flags: 4002
  44. -- rect: left=100 top=81 right=337 bottom=246
  45. -- title width / last selected line: 0
  46. -- icon id / first selected line: 0 / 0
  47. -- text alignment: 0
  48. -- font id: 3
  49. -- text size: 9
  50. -- style flags: 0
  51. -- line height: 12
  52. -- part name: 
  53.  
  54.  
  55. -- part 3 (field)
  56. -- low flags: 01
  57. -- high flags: 4002
  58. -- rect: left=248 top=81 right=337 bottom=278
  59. -- title width / last selected line: 0
  60. -- icon id / first selected line: 0 / 0
  61. -- text alignment: 65535
  62. -- font id: 3
  63. -- text size: 9
  64. -- style flags: 0
  65. -- line height: 12
  66. -- part name: calories
  67.  
  68.  
  69. -- part 4 (button)
  70. -- low flags: 00
  71. -- high flags: 0000
  72. -- rect: left=424 top=306 right=336 bottom=461
  73. -- title width / last selected line: 0
  74. -- icon id / first selected line: 19678 / 19678
  75. -- text alignment: 1
  76. -- font id: 0
  77. -- text size: 12
  78. -- style flags: 0
  79. -- line height: 16
  80. -- part name: 
  81.  
  82.  
  83. -- part 5 (button)
  84. -- low flags: 00
  85. -- high flags: 0000
  86. -- rect: left=462 top=306 right=336 bottom=498
  87. -- title width / last selected line: 0
  88. -- icon id / first selected line: 21700 / 21700
  89. -- text alignment: 1
  90. -- font id: 0
  91. -- text size: 12
  92. -- style flags: 0
  93. -- line height: 16
  94. -- part name: Quit
  95. ----- HyperTalk script -----
  96. on mouseUp
  97.   answer "Quit to where?" with "Home" or "Finder" or "Cancel"
  98.   if it="Home" then go home
  99.   if it="Finder" then domenu "Quit HyperCard"
  100. end mouseUp
  101.  
  102.  
  103.  
  104. -- part 6 (button)
  105. -- low flags: 00
  106. -- high flags: 2000
  107. -- rect: left=10 top=81 right=337 bottom=88
  108. -- title width / last selected line: 0
  109. -- icon id / first selected line: 0 / 0
  110. -- text alignment: 1
  111. -- font id: 0
  112. -- text size: 12
  113. -- style flags: 0
  114. -- line height: 16
  115. -- part name: 
  116. ----- HyperTalk script -----
  117. on mouseUp
  118.   visual effect wipe right
  119.   go next
  120. end mouseUp
  121.  
  122.